0 REM T U R T L E   D E M O
1 REM BY PETER MENKE
2 :
3 (null) 1,0,0:(null)15:(null)
4 :
10 REM ROBOTER-KOPF
20 (null) 120,160
30 (null) 2:(null) 10
40 (null) 0:(null) 30
50 (null) 2:(null) 10
55 (null) 4:(null) 40
60 (null) 2:(null) 100
65 (null) 0:(null) 100
70 (null) 6:(null) 100
90 (null) 4:(null) 40
100 (null) 6:(null) 10
110 (null) 0:(null) 30
120 (null) 6:(null) 10
121 :
122 REM LINKES OHR
130 (null) 110,105
140 (null) 4:(null) 15
150 (null) 2:(null) 30
160 (null) 0:(null) 15
161 :
162 REM RECHTES OHR
170 (null) 210,105
180 (null) 0:(null) 15
190 (null) 2:(null) 30
200 (null) 4:(null) 15
201 :
202 REM MUND
210 (null) 130,120
220 (null) 6:(null) 10
230 (null) 0:(null) 60
240 (null) 2:(null) 10
241 :
242 REM NASE
250 (null) 152,100
260 (null) 0:(null) 16
270 (null) 3:(null) 8
280 (null) 4:(null) 1
290 (null) 5:(null) 8
291 :
292 REM LINKES AUGE
293 (null) 130,60:(null) 0
295 FORT=1TO4
300 (null) 15
310 (null)2
320 NEXT
330 :
340 REM RECHTES AUGE
350 (null) 190,60:(null) 6
360 FORT=1TO4
370 (null) 15
380 (null) 2
390 NEXT
400 :
410 (null) 1:PRINT"[147][135]         T U R T L E    D E M O"
420 PRINT"             BY PETER MENKE"
430 FORI=0TO4000:NEXT
440 (null) 0
450 :
460 :
461 REM SPIRALE
470 (null) 1,2,2:(null) 0:(null):(null) 160,100
480 FORI=1TO66
490 (null) 1
500 (null) I
510 NEXT
511 FORI=1TO1000:NEXT
520 :
530 :
540 REM VIERECK-SPIRALEN
541 (null):(null)1
550 (null) 1,2,2:FORI=1TO200STEP2
560 (null) 2:(null) I:NEXT
561 (null) 160,100
570 FORI=1TO195STEP2
580 (null) 2:(null) I:NEXT
590 (null) 160,100
600 FORI=1TO195
610 (null) 2:(null) I:NEXT
620 :
630 :
640 REM MUSTER
641 (null)1,5,5:(null):(null)0
650 FORI=1TO45
660 FORX=0TO7
670 (null)X
671 (null) I
680 NEXTX
700 NEXT
710 :
720 (null)1,5,5
730 FORI=1TO45
740 FORX=0TO7
750 (null)X
761 (null)I
780 NEXTX
790 NEXT
800 FORI=1TO2000:NEXT
810 :
820 :
830 REM PYRAMIDEN
840 (null)1,6,6:(null):(null)15
850 FORI=1TO33
860 FORX=0TO7
870 (null) X
871 (null) I
880 NEXTX
900 NEXT
910 :
930 FORI=1TO33
940 FORX=0TO7
950 (null) 7-X
961 (null) I
980 NEXTX
990 NEXT
991 FORI=1TO8:(null)
992 FORX=1TO500:NEXT
993 NEXT
1000 :
1010 :
1011 REM INVERSES MUSTER
1020 (null)7,7:(null) 0:(null)
1030 FORY=1TO4:(null) 1:(null) 2
1040 FORI=1TO100
1050 (null) I
1060 FORX=1TO7
1070 (null) X:(null)X:NEXTX,I,Y
1080 :
1090 :
1111 REM STRICH-MUSTER
1120 (null)1,8,8:(null) 0:(null)
1130 FORY=1TO4:(null) 1:(null)2
1140 FORI=1TO45
1150 (null) I
1160 FORX=1TO10
1170 (null) X:(null) X:NEXTX,I,Y
1181 :
1182 :
1183 REM JOYSTICK ZEICHNEN
1184 (null) 1,10,10:(null)0:(null)
1185 (null)1
1186 PRINT"[147][135]    JOYSTICK-ZEICHNEN (PORT 2)"
1187 PRINT"    WEITER MIT F7"
1188 (null)5
1189 :
1190 :
1191 REM LIGHTPEN ZEICHNEN
1192 (null) 1,1,1:(null)0:(null)
1193 (null)1
1194 PRINT"[147][135]    LIGHTPEN-ZEICHNEN (PORT 1)"
1195 PRINT"    WEITER MIT F7"
1196 (null)
1197 :
1198 :
1200 REM ZUFALL
1210 (null) 1:(null):(null) 1,9,9
1220 (null) 1
1230 PRINT"[147][135]ZUFALLSMUSTER
1240 [153]"SCHLUSS MIT RUN/STOP-TASTE
1250 X1=INT(RND(1)*300)+10:X2=INT(RND(1)*150)+10:X3=INT(RND(1)*8)
1260 (null) X1,X2:(null) X3:(null) 1
1270 GOTO1250